home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Newton Sample Code 1.2 / Application Design / GoodForm-2 / Project Data < prev    next >
Encoding:
Text File  |  1994-07-06  |  1.3 KB  |  51 lines  |  [TEXT/ttxt]
  1. // Copyright © 1993,4 Apple Computer, Inc. All rights reserved
  2. //Project Data for GoodForm
  3.  
  4. // application based constants
  5. constant kAppSymbol := '|GoodForm:PIEDTS|;
  6. constant kAppName := "GoodForm";
  7. constant kPackageName := "GoodForm:PIEDTS";
  8. constant kAppObject := '["Datum","Data"];
  9. constant kAppAll:= "All Data";
  10.  
  11. // soup based constants
  12. constant kSoupName := kPackageName;
  13. constant kSoupIndexes := '[];
  14.  
  15. // a default soup entry
  16. DefConst('kDefaultEntry, {text: "", labels: nil}); 
  17.  
  18.  
  19. // GetAppParams constants
  20. constant kMaxApplicationWidth:= 250;
  21. constant kMaxApplicationHeight:= 336;
  22.  
  23. // Install and RemoveScripts
  24.  
  25. InstallScript := func(partFrame)
  26. begin
  27.    // register support for routing
  28.     GetGlobals().routing.(kAppSymbol) := partFrame.theForm.entryRoutingFrame;
  29.     
  30.     // Register global find support
  31.     call kRegFindAppsFunc with (kAppSymbol);
  32.  
  33.  
  34.     // register filing support
  35.     AddArraySlot(soupNotify, kSoupName);
  36.     AddArraySlot(soupNotify, kAppSymbol);
  37. end;
  38.  
  39.  
  40. RemoveScript := func(packageFrame)
  41. begin
  42.     // Unregister global find support
  43.     call kUnRegFindAppsFunc with (kAppSymbol);
  44.    
  45.     // un-register filing support
  46.     local soupNotifyPos:= ArrayPos(soupNotify, kAppSymbol, 0, nil);
  47.     ArrayRemoveCount(soupNotify, soupNotifyPos - 1, 2);
  48.     
  49.     // un-register routing support
  50.     RemoveSlot(GetGlobals().routing, kAppSymbol);
  51. end;